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Abstract 


This paper discusses a method of using a modulated beam of infrared light to communi¬ 
cate between two computers. A unique communication design and application is presented, 
demonstrating the feasibility of using infrared light as a transmission medium. This design 
is well-suited for short-range wireless communication. 
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I. Introduction 


The complexity and capacity of global communication systems has increased dramat¬ 
ically over the past several years due to technological advances in computer and commu¬ 
nications technology. Voice and data communication through microwave networks and 
satellite links is commonplace. In spite of the vast technology available for transmitting 
data over large distances, or possibly because of it, the need to transmit information short 
distances is still a necessity and a concern. Even within the walls of one room information 
must be transmitted, received, and evaluated. In most cases, the short-range method of 
communication used is a pair of wires. This solution works well most of the time but there 
are situations where physical attachment is undesirable or even impossible. The project 
described in this report is an attempt to meet the needs of such a situation by using an 
infrared beam of light to transmit data within a room. The report will include coverage of 
the design criteria for this communication system, the advantages of using infrared light 
over alternative mediums, the design description, and project performance. 

II. Design Criteria 

The most important design criteria for this application are: 


A. Reliability 

Data must be transmitted and received with as little error as possible. 

B. Flexibility 

The device should be flexible and adaptable to different applications. This means that the 
device should probably use a microprocessor that controls simple hardware. The design 
should also be microprocessor independent as far as possible. 

C. Range 

The data link should be able to work reliably within one room. The minimum acceptable 
distance is two to three meters. 

D . Data Rate 

Rate of transmission should be as fast as possible, while still maintaining reliability. A 
tolerable data rate is anything over about eight bytes per second. 

E. Low Power Consumption 

Power consumption should be minimized in order to allow the transmitter and receiver 
units to be battery operated. 

F. Low Cost 

Low cost is desirable but not critical at this point. 

G. Portability 

Small size and portability could be an asset in some applications. 



III. Transmission Medium 


Computer data links through installed cable networks are practical and convenient 
in most situations. Transmissions via this medium are fast and reliable. But in many 
changing environments a wire link can be costly, inconvenient, and bulky. A list of the 
alternative mediums to wire connections includes radio-frequency, ultrasound, and light 
(both visible and infrared). Each of these alternative mediums is briefly examined in the 
following sections. 

A. Radio-Frequency 

Radio-frequency communication is a relatively inexpensive alternative. Radio transmission 
and reception circuits are easily designed, are generally reliable, and their high frequencies 
offer high data transmission rates. These advantages, however, are part of the reason why 
radio circuits are very popular and heavily used. A transmission circuit designed to be used 
on a short-range low-power scale will meet with much interference and competition from 
the high-power devices now in commercial use. Furthermore, federal regulations governing 
radio frequency usage could be quite formidable for a project of this nature. 

B. Ultrasound 

There is no commercial interference with ultrasonic communication, but many devices such 
as televisions emit high frequency noises. However, one special form of interference that 
must be taken into account is the signal itself. Since the speed of sound is so slow compared 
to the speed of light, any circuit designed to use ultrasound would also have to deal with 
the echos as the signal bounced around the room. Eliminating the echos means reducing 
the data rate substantially. In the past, ultrasonic communication has been usfed in various 
applications such as TV remote control. This fact shows that an ultrasonic communication 
link is possible; however, most ultrasonic remote control devices have now been replaced 
with infrared units due to their better performance. 

C. Light 

Both infrared and visible light are good transmission mediums. Within these mediums 
signals travel rapidly and there are no problems with echos, commercial interference, nor 
federal regulations. Light emitting and receiving devices are readily available and generally 
have fast switching speeds, low cost, low power consumption, and small packaging. One 
problem with this transmission medium is that since light can be blocked by any opaque 
object, data communication must be restricted to line of sight. Another problem is that 
room lighting and television screens can create a considerable amount of background noise. 


D . Selected Transmission Medium 

Infrared light was chosen as a transmission medium for this project because it would allow 
construction of a fairly fast communication link out of commonly available and inexpen¬ 
sive parts, and because problems due to echos, commercial interference, and government 
regulations are nonexistent. 

Since this project is intended to be a portable short-range communication device the 
line-of-sight restriction wouldn’t limit its capabilities very much since transmitter or re¬ 
ceiver placement is controllable. This restriction could actually be advantageous since it 
would prevent devices operating in different rooms from interfering with each other. 

Background noise due to room lighting and television screens can be minimized by 
designing the communication link to operate in the infrared region of the light spectrum. 
In most environments, infrared noise levels are not as high as those due to visible light. 
Furthermore, since infrared light is invisible, a device using this medium would not be 
distracting or annoying. 
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Figure 1: Infrared Communication System 

IV. Design Description 

The complete communication system is shown in Figure 1. It consists of a computer 
connected to a transmitter and another computer connected to a receiver. The transmitting 
computer is able to send information by using the transmitter circuit to switch an infrared 
light beam on and off in a specified pattern. The receiving computer decodes the pattern 
of light pulses detected by the receiver hardware. The design of the transmission scheme, 
microcomputer, hardware, and software will be discussed in more detail in the following 
sections. 

A. Transmission Scheme 

In any communication system, the design of the transmission scheme is as important as 
the choice of transmission medium. Advantages of a good transmission medium can be 
defeated by a poorly designed transmission scheme. Two major factors involved in the 
transmission scheme, carrier frequency and data coding, are discussed below. 


Carrier Frequency 

One of most common problems in any communication system is noise. An infrared com¬ 
munication link is not immune from this problem. Some common infrared noise sources are 
sunlight, ordinary room light, television and computer screens, red light-emitting diodes, 
and just about any other heat or light emitting device. Many of these noise sources, such 
as sunlight, provide only D.C. background noise while others, such as the television screen 
and room lighting, provide A.C. noise in the 30 and 60 Hz range as well as multiples of 
these fundamental frequencies. 

One solution to the noise problem is to choose a carrier frequency for transmission 
that is out of the range of most common noise sources. One carrier frequency that is used 
commonly in industry for television and VCR remote controllers is 40 kHz. This frequency 
is high enough that the signal is distinguishable from background noise and yet low enough 
that the output from the LED is still appreciable. In addition, many commonly available 
components are designed to operate in the 30-70 kHz range. In light of these factors, 40 
kHz is used in this project as the carrier frequency for the infrared data link. 

Coding Scheme 

Once a carrier frequency is established, the data transmission coding scheme can be de¬ 
signed. Many factors must to be taken into consideration when choosing a coding scheme. 
Some of these factors are: 

1. How should the receiver be alerted that data is to be received? 
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Figure 2; Data Coding Scheme (Representation of ASCII “A”) 


2. How will the receiver be able to decode the data that follows? 

3. How will an error in the received data be detected? 

One coding scheme that addresses most of these concerns is Manchester Coding or 
bi-phase Pulse Code Modulation (PCM). In this scheme a *1’ is represented by a high to 
low transition while a ‘O’ is represented by a low to high transition. Each data bit that is 
transmitted then consists of two parts—a low-high, or a high-low. This coding scheme has 
the following advantages: 

1. The amount of time that the signal is continuously high or low is limited to no more 
than one bit-time. This limit means that a signal longer than one bit time can be 
used as a synchronizing pulse or start bit. 

2. The receiver should receive data that consists of either a low-high or a high-low. If 
it receives a high-high or a low-low, it is able to detect an error and determine in 
which bit(s) the error occurred. 

As shown in Figure 2, bi-phase PCM is used in this project to construct a transmission 
scheme that consisted of twelve total bit-times. The first three bit-times are used to signal 
the receiver that data is coming. The next eight bit-times contain eight data bits that 
represent an ASCII character. The signal is always low for the twelfth bit-time in order to 
ensure separation from the next transmitted byte. 

The length for each bit-time was chosen to be one millisecond. Tests of the receiver 
circuit show that it is capable of detecting the 40 kHz carrier frequency if it is given a 
burst only 10 cycles long. However, when a a 4 kHz square wave is modulated on the 
40 kHz carrier, the duty cycle is approximately 90% instead of the expected 50%. These, 
figures imply that if data were to be transmitted at 4000 bit-times/second, decoding would 
be extremely difficult. A bit-time of one millisecond provides a much more reliable signal. 
Since 12 bit-times are required to transmit eight bits of actual data, the maximum effective 
transmission rate becomes 670 bits/second. 

B. Microcomputer 

Two Atari 800 computers are used in this project. One is connected to the transmitter 
circuit and the other to the receiver circuit. The only special feature of the Atari used in this 
project is that it has four general purpose parallel I/O ports that are easily programmable. 
Since the transmitter and receiver require only one data line each, any other microcomputer 
system with at least one programmable data line would work equally well. 

Figure 3 shows the connection of the transmitter or receiver circuit to the microcom¬ 
puter. Each computer contains a 6502 microprocessor and a 6520 Peripheral Interface 
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Figure 3: Connection of External Circuitry to the Computer 


Adapter. The microprocessor is clocked at 1.79 MHz and is able to execute between 
500,000 and 1,000,000 instructions per second. Since the fastest imaginable data rate for 
the infrared link is probably less than 10,000 bits per second, the speed of the micropro¬ 
cessor itself is more than ample to provide accurate timing and data transmission without 
additional hardware. 

The Atari computer contains several co-processors in addition to the 6502 that update 
the screen display, perform special graphics functions, regulate I/O, and do other house¬ 
keeping duties. These co-processors perform their duties by halting the 6502 and using 
direct memory access (DMA) to get the data they need from main memory. Since tim¬ 
ing loops are used used in order to transmit and receive data over the infrared link, the 
co-processers must be turned off during data transmission and reception to ensure timing 
accuracy. 

C. Hardware 

In this application, simple hardware is advantageous. The microprocessor can handle signal 
timing and decoding, so the main purpose of the hardware is to effectively transmit and 
detect the infrared signal. Both transmitter and receiver circuits are described below. 

Transmitter Circuit 

The transmitter circuit is mainly composed of an NE555 timer to provide the carrier 
frequency, an AND gate to modulate the computer signal with the carrier, and an output 
stage to provide power to the infrared emitting diodes. Please refer to Figure 4. 

An NE555 timer was chosen to provide the carrier frequency due to its low cost and 
flexibility. The carrier frequency does not need to be exact, so the expense of a crystal 
oscillator was not necessary in this project. The frequency is designed to be in the range 
of 38 to 42 kHz. 

A 50% duty cycle on the output of the NE555 is produced by attaching the two 1N914 
diodes to pin 6 as shown in Figure 4. The combined resistance of R1 and R2 must also 
equal the combined resistance of R3 and R4 to produce the 50% duty cycle. Trim pots R1 
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Figure 4 '■ Transmitter Circuit Schematic 



and R3 can be adjusted to fine-tune both the output frequency and the duty cycle. The 
output carrier is a square wave oscillating between 0 and 4.6 Volts at the rate of about 40 

kHz. . 

The 74C08 is a CMOS AND gate which modulates the 0 to 5 Volt signal from the 
computer with the carrier frequency supplied by the NE555 timer. The modulated output 
signal is fed to the transmitter output stage. 

The output stage consists of a two-stage amplifier providing power to the three series 
infrared emitting diodes. Two stages are used to prevent too much current from being 
drawn from the AND gate. A 2N2222 transistor, Q2, is biased to provide 42 mA of current 
to the diodes when the output of the 7408 AND gate goes high. When the output of the 
AND gate is low, no current will flow through the infrared emitting diodes. 

The most important component of the transmitter circuit is the infrared emitting diode. 
Infrared emitting diodes are not carried in great variety by local vendors. A fairly common 
infrared diode, the TIL906-1, is suitable for this project. The TIL906-1 has a radiant power 
output of 1.5 mW with 20 mA of forward current. An XC-880-A infrared emitting diode 
can also be used in this application, although its output is only 1.0 mW with 20 mA 
of forward current. Both of these diodes produce non-coherent, infrared energy with a 
wavelength of 880 nm and a dispersion angle of 20°. 

With 42 mA of current, transmission power consumption is 105 mW for the diodes, 
transistor, and bias resistor. Overall transmitter power consumption is about 150 mW. 

Receiver Circuit 

The main components of the receiver circuit shown in Figure 5 are the infrared light 
detector, the wideband amplifier-detector chip, transistor amplifier, voltage regulator, and 
inverter chip. 

The infrared light detector, an infrared phototransistor, is clearly the most important 
component in the receiver circuit. As previously stated, infrared components are not as 
easily obtainable as the more common circuit elements, but a suitable infrared phototran¬ 
sistor, the TIL414, is commonly available. The TIL414 is an NPN silicon phototransistor 
providing high speed and high photosensitivity. A recent version of the TIL414 has a filter 
which is very helpful in blocking out visible-light noise.. 

When infrared light is detected by the phototransistor, current will flow through the 
collector. The 3.9 kfi bias resistor limits the current to 2.3 mA at an irradiance level of 
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Figure 5: Receiver Circuit Schematic 


between 20 and 80 mW/cm 2 , maximizing the infrared sensitivity and output consistency. 

The Motorola MC3373 is used to amplify and peak detect the input signal. The input 
to the chip from the photodetector is a 40 kHz modulated signal. The output is an envelope 
detected, amplified signal. Capacitors and resistors attached to the chip are used mainly 
for filtering the signal. 

The chip output at pin 1 is held at about 1.1 V by the diode D1 and the emitter-base 
diode of Ql. The output goes low when a 40 kHz signal is detected. Transistor Q1 is 
biased so that it is “on” while the chip output is high, and “off” when the output is low. 
Thus, transistor Ql inverts and amplifies the detected signal. 

The am plifier output goes directly to two inverters to provide a reliable 0 to 5 Volt 
signal to be fed to the receiver computer. 

D. Software 

The software for the transmitter is fairly simple, while the receiver software is necessarily 
more complicated. All software for this project is written in 6502 machine code in order to 
obtain the precise timing necessary. As mentioned previously, the most critical part of this 
software is correctly shutting off external interrupts to the processor so that the timing 
is not disturbed. The only adverse effect of shutting off the co-processors momentarily is 
that the CRT display goes blank while the routine is executing and then reappears when 
it is finished. 

One millisecond is composed of about 1600 instruction clock cycles after memory refresh 
cycles are taken into consideration. Instructions on the 6502 generally take between two 
and four cycles. Both the transmit and receive program spend roughly 100 cycles per bit 
in sending or interpreting the data and spend the remaining 1500 cycles in timing loops. 
The timing of both programs is accurate to within one cycle per bit. 

Both machine language programs, as written, are meant to be called from a BASIC 
program. They could also be called from another machine language subroutine or other 
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Figure 6: Transmit Program Flowchart 


hi gh level language as long as the information on the stack is set up properly before calling 
the machine language routines. 


Transmit Program 

The transmit program, as shown in the flowchart of Figure 6, receives one 8-bit ASCII 
value from BASIC and transmits this over the I/O port. It does this by first shutting off 
all interrupts and then initializing the I/O port as a write device. The program then sends 
a high value for two bit-times, a low value for one bit-time, and transmits eight bits of 
data using the Manchester Coding scheme as described. At the end of the routine, it turns 
the interrupt system back on and returns to BASIC. 

Receive Program 

The flowchart for the receiver program is shown in Figure 7. The program receives one 
eight-bit value over the infrared link and returns this value to BASIC. 

The routine first initializes the I/O port as a read device and then continually monitors 
the port for a high value which signifies that the receiver has detected a 40 kHz burst. 
If a high level is seen, the routine disables external interrupts and executes two tests to 
determine if the trigger signal is valid. These tests are: 

1. Does the signal stay high for at least 1.25 bit-times? 

2. Does the signal go low before 2.25 bit-times have elapsed? 
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Figure 7; Receive Program Flowchart 




















If either of these conditions are false, the routine will enable the interrupts and continue 
to search for a trigger signal. If both conditions are true, the routine assumes that the 
trigger is valid and that the high to low transition marks the beginning of the start bit. 
At this point the routine will read eight pairs of points, each point one half bit-time away 
from another, and decode these PCM codes into data bits. If any errors are detected (an 
error being either a high-high or a low-low), the routine will assume the bit was a zero but 
will store the corresponding bit number in a register to be returned to BASIC and then 
continue on with the decoding of the following bits. The routine will finally return the 
received value to BASIC. 

One exception to the error handling procedure is when an error occurs in the first 
transmitted bit. In this case, the routine assumes that it received a noise pulse that just 
happened to be about two bit-times long and will immediately enable the interrupts and 
begin looking for a trigger pulse again. 

V. Conclusion 

A. Overall Design Performance 

The performance of this communication system is very good. The system meets or exceeds 
all of the original design specifications. The system works well at the minimum specified 
range and the data rate is acceptable. The hardware cost is minimal, as is the power 
consumption. The size of the transmitter and receiver circuits is not too large to preclude 
incorporation into a portable system. The system design is such that performance can be 
improved in weak areas, such as transmission distance, by simple software or hardware 
modifications. 

Reliability 

With Manchester Coding and error checking in the software, the transmission is very 
reliable. The software is able to detect rare errors in the data, and determine where such 
errors occurred. 


Flexibility 

The hardware/software combination is very flexible. The data rate can be increased by 
changing the timing loops in the software and the range of operation can be extended 
by either adding extra LEDs to the transmitter circuit or adding focusing lenses to the 
receiver to gather more light. The hardware is independent of the transmission coding 
scheme and microcomputer used. 


Operating Range 

The communication link under normal conditions and without lenses is able to function 
reliably at a distance of 3.3 meters. Under near-perfect conditions, it is able to function at 
distances as high as five meters. Theoretically, the operating range could be doubled by 
every four-fold increase in light gathering power provided by a lens on the receiving unit. 


Data Rate 

The current data transmission rate is about 600 bits/second. By sacrificing reliability for 
speed, the rate could be increased up to a theoretical maximum of 2400 bits/second as 
allowed by the current hardware circuitry. If the carrier frequency were increased to 80 
kHz, the infrared link could probably function at speeds as high as 4800 bits/second or 
more. 
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Power Consumption 

The power consumption of the transmit and receive circuits is about 150 mW. This will 
allow each unit to operate for 10 to 15 hours (continuously) on a 9 V battery. This is 
reasonable. 

Cost 

The cost for the transmitter and receiver pair is in the $20.00 range (not including the 
computers). This amount is considered reasonable. 

Size 

The Atari computers are obviously too large to be portable, especially since they need 
to be plugged into the wall. The crucial components of the computer, however, are the 
6502 microprocessor and the 6520 peripheral interface adapter. These chips could easily 
be incorporated into a small handheld unit that would also contain either the transmission 
or reception circuit. Such a device would be truly portable. 

B. Project Applications and Extensions 

This communication system, or subcomponents of it, could be.used in a variety of appli¬ 
cations. Some possible applications or project extensions are listed below: 

• Data Collection 

A hand-held digital multimeter could be built to include the infrared transmitter 
circuit. A host computer located nearby would be attached to a receiver located on 
the ceiling of the laboratory. A person could record data as he performed experi¬ 
ments by simply pressing a button on his meter to transmit the data to the host 
computer. 

• Portable Terminal 

A small laptop computer could be equipped with a receiver and transmitter to be 
able to communicate with a host computer via a infrared link module installed in the 
ceiling. If the data coding scheme were changed from the current method, multiple 
data channels could be used allowing the host computer to talk to more than one 
terminal at the same time. 

• Remote Data Acquisition 

A data acquisition system equipped with an infrared transmitter could be placed in 
an environment where it would be hazardous to have a wire communication link, as 
in a situation with high voltages between sensor location and ground. An infrared 
communication link would provide a way for information to be transmitted to a 
host computer without danger to the equipment. 



VI. Appendix 
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• Infrared receiving program by 
; Bryan and Lisa Talbot for their 
; Senior Project. 

; Version 5/29/87 8:00 

; This routine is called from 
? Atari BASIC. No parameters 
; are passed. 


; HARDWARE REGISTERS 


D400 

DMACTL = 

$D400 

• 

♦ 

D300 

PORTA = 

$D300 

• 

9 

D302 

PACTL = 

$D302 

• 

9 

D40E 

NMIEN = 

$D40E 

• 

9 

D20E 

IRQEN * 

$D20E 

• 

9 

0010 

POKMSK = 

$0010 

• 

9 

D40A 

WSYNC = 

$D40A 

• 

9 


5 DMA CONTROL 


NMI ENABLE 
IRQ ENABLE 
IRQ SHADOW 


. DATA IS GATHERED AND RETURNED TO 
• BASIC IN THIS LOCATION 

DATA = $00D4 ; INFO ADDRESS 


; VARIABLES FOR THIS PROGRAM 
0480 POKTMP = $0480 ; 


; REMEMBER: 

; 1600 CYCLES = WHOLE BIT TIME 
• 800 CYCLES = HALF BIT TIME 

! 400 CYCLES = QUARTER BIT TIME 

0600 ORG $0600 


INIT 

; PULL THE NUMBER OF ENTRIES TO 
. THIS MACHINE LEVEL CALL FROM 
; BASIC OFF THE STACK. IT SHOULD 
; BE ZERO 

PLA 

. SET THE DATA DIRECTION REGISTER 


0600 68 
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; FOR PORT A TO BE "READ" 


0601 A938 

0603 8D02D3 

0606 A900 

0608 8D00D3 

060B A93C 
060D 8D02D3 


LDA 

#$38 

STA 

PACTL 

LDA 

#$00 

STA 

PORTA 

LDA 

#$3C 

STA 

PACTL 


;READ 


; TAKE A LOOK AT INITIAL CONDITIONS 
\ FOR SOME HARDWARE REGISTERS 


0610 A510 

0612 8D8004 


LDA POKMSK 
STA POKTMP 


• ENTRY POINT WHEN FALSE SIGNAL 

• DETECTED. THIS WILL RESTORE THE 
; SCREEN 


0615 

0615 

AD8004 

SCRON 

LDA 

POKTMP 

0618 

8510 

STA 

POKMSK 

061A 

8D0ED2 

STA 

IRQEN 

061D 

A9FF 

LDA 

#$FF 

061F 

8D0ED4 

STA 

NMIEN 

0622 

A922 

LDA 

#$22 

0624 

8D00D4 

STA 

DMACTL 

0627 

8D0AD4 

STA 

WSYNC 


* 

f 


READ THE PORT CONTINUOUSLY AND 
WAIT FOR A SIGNAL TO BE DETECTED 
(KEEP LOOPING UNTIL TOP BIT GETS 
SET) 


062A AD00D3 
062D 10FB "~062A 


WSIG LDA PORTA 
BPL WSIG 


062F A900 

0631 8D00D4 

0634 8D0ED4 
0637 8D0ED2 


TURN OFF ALL INTERRUPTS SO THAT 

the read won't get interrupted 


LDA 

STA 

STA 

STA 


#$ 00 

DMACTL ; TURN OFF DMA 
NMIEN ; TURN OFF ALL NMI 
IRQEN ; TURN OFF ALL IRQ 


• WAIT 1.25 BIT TIMES CHECKING 

• FOR HIGH LEVELS CONTINUOSLY TO 

• MAKE SURE THAT THIS IS THE 
; TRIGGER SIGNAL 


063A A23E 


LDX #$3E ; (1991 CYCLES) 
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063C 

A004 

WTT LDY 

#$04 

063E 

88 

WTT1 DEY 


063F 

DOFD “063E 

BNE 

vtfTTl 

0641 

AD00D3 

LDA 

PORTA 

0644 

10CF “0615 

BPL 

SCRON 

0646 

CA 

DEX 


0647 

D0F3 “063C 

BNE 

WTT 

0649 

86D4 

STX 

DATA 

064B 

86D5 

STX 

DATA + 1 
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; NOW WAIT NO MORE THAN ONE FULL 
; BIT TIME FOR A ZERO TO OCCUR 


064D A232 

064F A004 

0651 88 

0652 DOFD “0651 
0654 AD00D3 
0657 1005 “065E 

0659 CA 
065A D0F3 “064F 
065C F0B7 “0615 


WTZ LDX 

#$32 

WTZl LDY 

#$04 

WTZ2 DEY 


BNE 

WTZ2 

LDA 

PORTA 

BPL 

STRBT 

DEX 


BNE 

WTZl 

BEQ 

SCRON 


(1601 CYCLES MAX) 

FOUND A START BIT 
FALSE TRIGGER 


; WAIT ONE QUARTER BIT TIME AND 
; MAKE SURE THAT IT CONTAINS ALL 
5 ZEROS (SO THIS ISN'T A TRANSIENT) 


065E 

065E A224 

0660 AD00D3 
0663 30E8 “064D 

0665 CA 
0666 D0F8 “0660 


STRBT 


LDX 

#$24 

WTQ LDA 

PORTA 

BMI 

WTZ 

DEX 


BNE 

WTQ 


(397 CYCLES) 
FOUND A ONE 


• NOW DELAY ONE FULL BIT TIME TILL 
. WE'RE INTO THE FIRST QUARTER OF 
THE FIRST BIT 


0668 

A2E4 

LDX 

#$E4 ; 

066A 

EA 

WTBl NOP 


066B 

CA 

DEX 

WTBl 

066C 

DOFC “066A 

BNE 


; THIS IS THE MAIN LOOP THAT WILL 
• READ 8 BITS AND PLACE THEM IN 
; DATA. WE WILL GO THROUGH THE 
; LOOP 8 TIMES. 


066E A008 


LDY #$08 ; (2 CYCLES) 


GET FIRST HALF BIT (IN ACC) 
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0670 

AD00D3 

IFH LDA PORTA 5 (4 CYCLES) 



; HALF BIT DELAY 

0673 

A29F 

LDX #$9F ; (796 CYCLES) 

0675 

CA 

LP1 DEX 

0676 

DOFD '*0675 

BNE LP1 


0678 AE00D3 


• GET SECOND HALF BIT (IN X REG) 
LSH LDX PORTA ; (4 CYCLES) 


DETERMINE IF WE JUST GOT A 1 OR 0 
A X 

10 = 1 
0 1=0 
00= ERROR 
11= ERROR 

; LOOK AT FIRST HALF BIT 


067B 

0900 



(HA 

#$00 

;SET STATUS ON 

067D 

1005 

“0684 


BPL 

AO 

; (4/5 CYCLES) 




; LOOK AT 

SECOND 

HALF BIT 

067F 

8A 


A1 

TXA 


;(5 CYCLES) 

0680 

100A 

“068C 


BPL 

XO 


0682 

300B 

“068F 


BMI 

ERR 


0684 

8A 


AO 

TXA 


;(5 CYCLES) 

0685 

3002 

“0689 


BMI 

XI 


0687 

1006 

“068F 


BPL 

ERR 





; BIT WAS 

A ZERO 

0689 

18 


XI 

CLC 


; (5 CYCLES) 

068A 

900A 

“0696 


BCC 

ABIT 





; BIT WAS 

A ONE 


068C 

38 


XO 

SEC 


; (5 CYCLES) 

068D 

B007 

“0696 


BCS 

ABIT 



IF ERROR OCCURS ON FIRST BIT 
THEN START BIT WAS PROBABLY A 
TRANSIENT. IF ERROR OCCURS ON 

V 1 ’ 
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BIT NUMBER IN HIGH BYTE OF WORD 
TO BE RETURNED TO BASIC, AND PUT 
A 0 IN THE BIT LOCATION WHERE 


068F 

C008 


; ADDS 8 UNEXPECTED CYCLES TO THE 
j TIMING. 

ERR CPY #$08 5(8 EXTRA CYCLES) 

0691 

F082 ‘ 

'0615 

BEQ SCRON 

0693 

84D5 


STY DATA + 1 

0695 

18 


CLC 

0696 

26D4 


; ROLL THE CARRY BIT INTO DATA REG 

ABIT ROL DATA ; (5 CYCLES) 

0698 

A29A 


; HALF BIT DELAY 

LDX #$9A } (771 CYCLES) 

069A 

CA 


WTM DEX 

069B 

DOFD 

“069A 

BNE WTM 

069D 

88 


; CONTINUE THE LOOP 

dey » (s cycles) 

069E 

DODO 

‘0670 

bne lfh 


; TURN ON THE VERTICAL BLANK AND 
; RETURN TO BASIC 


06A0 

06A3 

06A5 

AD8004 

8510 

8D0ED2 

rtrn lda 

STA 

STA 

POKTMP 

POKMSK 

IRQEN 

j TURN ON IRQ 

06A8 

06AA 

A9FF 

8D0ED4 

LDA 

STA 

#$FF 

NMIEN 

; TURN ON NMI 

06AD 

06AF 

A922 

8D00D4 

LDA 

STA 

#$22 

dmactl 

; TURN ON DMA 

06B2 

8D0AD4 

STA 

WSYNC 

; SYNC WITH TV 

06B5 

60 

RTS 




06B6 


END: END 


no ERRORS, 
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Infrared transmitting program 
by Bryan and Lisa Talbot for 
their senior project. 

Version 5/29/87 9:00 

This routine is called from 
Atari BASIC. One parameter 
is passed. (The character to 
be sent) 


; HARDWARE REGISTERS 


= D400 

DMACTL = 

$D400 ; 

DMA 

CONTROL 

= D300 

PORTA = 

$D300 ; 

I/O 

PORT 

= D302 

PACTL = 

$D302 



= D40E 

NMIEN = 

$D40E ; 

NMI 

ENABLE 

= D20E 

IRQEN = 

$D20E ; 

IRQ 

ENABLE 

= 0010 

POKMSK = 

$0010 ; 

IRQ 

SHADOW 

= D40A 

WSYNC = 

$D40A 




; PROGRAM 

VARIABLES 



= 00D4 

DATA = 

$00D4 ; 

INFO ADDRESS 

= 0482 

POKTMP = 

$0482 




• 1600 CYCLES = 1 BIT TIME 

• 800 CYCLES = HALF BIT TIME 

• 400 CYCLES = QUARTER BIT TIME 


0000 = 0600 


ORG $0600 


0600 


0600 68 


WINIT 

. GET # OF ITEMS FROM STACK 
; SHOULD BE 1. 

PLA 


0601 68 
0602 85D5 


PULL HIGH THEN LOW BYTES OF DATA 
TO BE SENT 

PLA 

STA DATA+1 
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0604 68 

0605 85D4 


PLA 

STA DATA 


0607 A900 

0609 8D00D4 

060C 8D0ED4 

060F A610 

0611 8E8204 

0614 8D0ED2 


; TURN OFF ALL THE INTERRUPTS 


LDA #$00 
STA DMACTL 


TURN OFF DMA 


STA NMIEN J TURN OFF NMI 

LDX POKMSK ; TURN OFF IRQ 
STX POKTMP 
STA IRQEN 


0617 A938 

0619 8D02D3 

061C A9FF 
061E 8D00D3 

0621 A93C 
0623 8D02D3 


. SET PORT A TO "WRITE" STATUS 


LDA #$38 
STA PAGTL 
LDA #$FF 
STA PORTA 
LDA #$3C 
STA PACTL 


WRITE 


0626 A9FF 
0628 8D00D3 


; PUT A 1 IN PORT FOR PRETRIGGER 


LDA #$FF 
STA PORTA 


; WAIT 2 FULL BIT TIMES 


062B A27B 

062D A004 

062F 88 

0630 DOFD “062F 

0632 CA 

0633 D0F8 “062D 


LDX #$7B 
LPT LDY #$04 
LPT1 DEY 

BNE LPT1 
DEX 

BNE LPT 


(3199 CYCLES) 


0635 8E00D3 


; WRITE A 0. (TRIGGER) 

STX PORTA ; (4 CYCLES) 


0638 A2E2 
063A EA 
063B CA 

063C DOFC ~063A 


; WAIT 1 FULL BIT TIME 

LDX #$E2 j (1583 CYCLES) 

LPZ NOP 
DEX 

BNE LPZ 


GET INTO A LOOP AND TRANSMIT 8 
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DATA BITS USING PCM 
1 * 10 
0 - 01 


063E A008 


LDY #$08 5 (2 CYCLES) 


; PUT NEXT DATA BIT IN CARRY FLAG 
. AND BRANCH TO APPROPIATE SEQUENCE 


0640 

26D4 

LOOP ROL DATA ; (7/8 CYCLES) 

0642 

9004 “0648 

BCC AO 



• WRITE A ONE FIRST 

0644 

A9FF 

A1 LDA #$FF ; (5 CYCLES) 

0646 

D005 “064D 

BNE NEXT 



5 WRITE A ZERO FIRST 

0648 

A900 

AO LDA #$00 ; (5 CYCLES) 

064A 

F001 “064D 

BEQ NEXT 

064C 

EA 

Nop ; NOT EXECUTED 



• WRITE FIRST HALF BIT 

064D 

8D00D3 

NEXT STA PORTA ; (4 CYCLES) 



. WAIT HALF A BIT TIME 

0650 

A271 

LDX- #$71 5 (794 CYCLES) 

0652 

EA 

LPD NOP 

0653 

CA 

DEX 

0654 

DOFC “0652 

BNE LPD 

0656 

EA 

NOP 



; TAKE COMPLEMENT AND WRITE OTHER 



1 HALF BIT 

X. 

0657 

49FF 

EOR #$FF ; (6 CYCLES) 

0659 

8D00D3 

STA PORTA 



; WAIT ANOTHER HALF BIT TIME 

065C 

A29B 

LDX #$9B ; (778 CYCLES) 

065E 

CA 

LPE DEX 

065F 

DOFD “065E 

BNE LPE 

0661 

EA 

NOP 


; LOOP AROUND AND DO NEXT BIT 
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0662 88 

0663 DODB “0640 


DEY J (5 CYCLES) 

BNE LOOP 


} STORE A ZERO IN THE PORT SO AS 
; TO LEAVE IT IN AN OFF STATE 
. NOT TO CONFUSE THE RECEIVER 


0665 

8C00D3 

STY 

PORTA 




; WAIT 1 BIT TIME 


0668 

A2E5 

LDX 

#$E5 } 

(1704 CYCLES) 

066A 

EA 

WONE NOP 



066B 

CA 

DEX 



066C 

DOFC “066A 

BNE 

WONE 




; TURN ON 

the interrupts and return 



; TO BASIC 


066E 

AD8204 

LDA 

poktmp 

; TURN ON IRQ 

0671 

8510 

STA 

POKMSK 


0673 

8D0ED2 

STA 

IRQEN 


0676 

A9FF 

LDA 

#$FF 

; TURN ON NMI 

0678 

8D0ED4 

STA 

NMIEN 


067B 

A922 

LDA 

#$22 

t TURN ON DMA 

067D 

8D00D4 

STA 

DMACTL 


0680 

8D0AD4 

STA 

WSYNC 

; SYNC WITH TV 



; RETURN 

TO BASIC 


0683 

60 

RTS 




0684 


END*. END 


no ERRORS, 
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100 GRAPHICS 18 

110 PRINT #6;” SENIOR PROJECT' 
120 PRINT #6;" DEMONSTRATION" 
130 PRINT #6{" PROGRAM" 

140 PRINT #6;" " 

150 PRINT #6j"BRYAN & LISA TALBOT 
160 PRINT #6;" " 

170 PRINT #6; 

180 PRINT #6}" an infrared 
190 PRINT #6;" communication 
200 PRINT #6;" link" 

210 PRINT #6}" " 

220 PRINT #6;" " 

230 PRINT #6;" JUNE 12, 1987 

250 FOR X=1 TO 10 

260 FOR Y=0 TO 15 STEP 0.1 

270 SETCOLOR 1,5,Y 

280 NEXT Y 

290 NEXT X 

300 REM 

310 REM 

330 GOSUB 1000:REM SET UP ML PROG 
340 DIM CHAR$(10),LINE$(300) 

350 OPEN #1,4,0,"K:" 


470 REM 
480 REM 
490 REM 

500 GRAPHICS 18 

510 PRINT #6;" receiver n 
520 PRINT #6}" application menu j( 

530 PRINT #6;"--“ 

540 PRINT #6?"a) GET CHARACTERS 

550 PRINT #6;" " „ 

560 PRINT #6}"b) GET MEASUREMENTS 

570 PRINT # 65 " " „ 

580 PRINT #6;"c) GET STRINGS 
590 PRINT # 65 " " 

595 PRINT #6}"d) END 
597 PRINT #6;" " 

600 PRINT #6{"which? . 

610 KEY=USR(1536):CHAR$=CHR$(KEY) 

an o to ghar$<"a" or char$>"d THEN 610 

630 ON KEY-ASC("A")+1 GOSUB 10000,11000,12000,13000 
640 GOTO 500 


650 REM 
660 REM 

670 REM „ . 

1000 REM INSTALL RECEIVER VERS B.O 

1001 RESTORE 1009 

1002 READ NUMBYTES 

1003 FOR X=0 TO NUMBYTES-1 


1004 READ BYTE 

1005 POKE 1536+X.BYTE 

1006 NEXT X 

1007 RETURN 



1030 DATA 141,0,212,141,10,212,173,0,211,16,251,169,0,141,0,212,141,14 
1040 DATA 212 141.14.216.162.62.180.4.136.208,253,173,0,211,16,207,202 208 
1050 DATA 243 134 212 134,213,162,50,.160,4,136,208,253,173,0,211,16,5,202 
1060 DATA 208 ^243,240,183,162,36,173,0,211,48,232,202,208,248,162,228,234,202 
1070 DATA 208,252,160,8,173,0,211,162,159,202,208,253,174,0,211,9,0,16 

1080 DATA 5 138 16.10.48,11,138,48,2,16,6,24,144,10,56,176,7,192 

1090 DATA 8 24 o!l 30 132 213 ^24, 38 ,212 162[l54,202 208,253,136,208,208,173,128 

UOoSm 4,133:16,141.14,210,169:255:141,14,212,169,34,141.0,212,141,10,212,96 

2000 KEY=USR(1536)sRETURN 


10000 GRAPHICS 18 

10003 PRINT #6;"CHARACTERS RECEIVED^ 

10004 PRINT #6;"-—-" 

10005 COUNT=0 
10010 KEY=USR (1536) 

10020 IF KEY>255 THEN PRINT # 6 ;"# 5 :GOTO 10040 
10030 PRINT #6}CHR$(KEY)j 

10040 C0UNT=C0UNT+1:IF COUNT>160 THEN 10000 
10050 IF KEY<>94 THEN 10010 


10100 RETURN 
10110 REM 
10120 REM 

11000 REM GET MEASUREMENTS 
11010 GRAPHICS 19 


11015 C = 1 

11020 FOR X=0 TO 23:KEY=USR(1538) :IF KEY=255 THEN 11200 

11030 WL^PLOtTx^DRaStO (228-KEY)/6,X sCOLOR OsDRAWTO 39,X 

11040 NEXT X:C®3-C:G0T0 11020 

11200 RETURN 

12000 REM GET STRINGS 

12010 GRAPHICS 0 

12020 SETCOLOR 2,0,0 

12030 SETCOLOR 1,0,15 _ „ 

12040 PRINT "WAITING TO RECEIVE A STRING OF TEXT:^ 

12050 PRINT "---- 

12060 KEY=USR(1536) 

12070 IF KEY=0 THEN 12200 

12080 FOR X=1 TO KEY 

12090 LINE$(X,X)=CHR$(USR(1536)) 

12100 NEXT X 
12110 PRINT LINES 
12120 PRINT SPRINT 
12130 GOTO 12040 
12200 RETURN 
13000 GRAPHICS 0 
13005 FOR Z—1 TO 20 
13010 SOUND 0,20,8,Z/2 
13020 SOUND 1,15,8,8 
13030 FOR X=1 TO lOsNEXT X 
13040 SOUND 1,0,0,0 
13050 FOR X=1 TO lOsNEXT X 


13060 NEXT Z 
13080 SOUND 1,0,0,0 
13090 FOR X=200 TO 0 STEP 
13100 SOUND 0,0,0,0 
13110 END 


-1:SOUND 0,20,8,X/15:NEXT X 



100 GRAPHICS 18 
110 PRINT #6;" SENIOR 


II 


_ project" 

demonstration" 
program" 


'BRYAN & LISA TALBOT" 

II 


an infrared" 

communication" 

link" 


ii 

ii 


120 PRINT 
130 PRINT #6 
140 PRINT #6 
150 PRINT #6 
160 PRINT #6 
170 PRINT #6 
180 PRINT #6 
190 PRINT #6 
200 PRINT #6 
210 PRINT #6 

220 PRINT #6, „ 

230 PRINT #6j" JUNE 12, 1987 
250 FOR X=1 TO 10 
260 FOR Y=0 TO 15 STEP 0.1 
270 SETCOLOR 1,5,Y 
280 NEXT Y 
290 NEXT X 
300 REM 
310 REM 

330 GOSUB 1000:REM SET UP ML PROG 
340 DIM CHAR$(10),LINE$(300) 

350 OPEN #1,4,0,"K:" 

470 REM 
480 REM 
490 REM 

500 GRAPHICS 18 


510 PRINT #6;" transmitter n 
520 PRINT #6?" application menu ( 

530 PRINT #6;"----- 

540 PRINT # 65 "a) CHARACTERS 
550 PRINT # 6 ;" " „ 

560 PRINT #6;"b) MEASUREMENTS 

570 PRINT #6?" " 

580 PRINT #6;"c) STRINGS 
590 PRINT #6;" " 

593 PRINT #6;"d) END 
596 PRINT #6;" " 

600 PRINT #6;"which? 

610 GET #l.KEY:CHAR$ sa CHR$(KEY) 

615 IF CHAR$="'" WEN B=USR(153&,255)SGOTO 610 
620 IF CHAR$<"A" OR CHARS>"D" THEN 610 

g| SOSUB 10000,11000,12000,13000 

640 GOTO 500 
650 REM 
660 REM 
670 HEM 

1000 REM B.O TRANSMITTER ML ROUTINE 

1001 RESTORE 1009 

1002 READ NUMBYTES 

1003 FOR X=0 TO NUMBYTES-1 

1004 READ BYTE 

1005 POKE 1536+X.BYTE 

1006 NEXT X 



1007 RETURN 

1010 DATA 104,104,133,213,104,133,212,169,0 141 0 23.2 ,141 
1020 DATA 14,212,166,16,142,130,4,141,14,210,169,56 141 
1030 DATA 2 211,169,255,141,0,211,169,60,141,2,211,169 
1040 DATA 255,141,0,211,162,123,160,4,136,208,253,202,208 
1050 DATA 248,142,0,211,162,226,234,202,208,252 160 8,38 
1060 DATA 212,144,4,169,255,208,5,169,0,240,1 234 141 
1070 DATA 0 211,162 113,234,202,208,252,234,73,255,141, 

1080 DATA 211 162 155,202 208,253 234,136,208,219,140,0,211 
Z S S 2 :2l9:234: 2 02:20 8 ;2 52 ;i73 130 4,133 16 141 14 
1100 DATA 210,169,255,141,14,212,169,34,141,0,212,141,10,212,96 
2000 U=USR(1536, KEY){RETURN 
10000 GRAPHICS 18 

10005 C0UNT=O „ 

10010 PRINT #6;"characters can be^ 

10020 PRINT #6;" sent as you types ( 

10030 PRINT #6;"—-— 

10040 GET #1,KEY 

10060 PRINT #6{CHR$(KEY){ 

10070 B=USR( 1536.KEY) 

10075 C0UNT=C0UNT+1:IF COUNT>160 THEN 10000 

10080 IF KEY<>94 THEN 10040 

10100 RETURN 

10110 REM 

10120 REM 

10130 REM 

11000 GRAPHICS 18 „ 

11010 PRINT #6{"data can be sent () 

11020 PRINT #6{"from measurement 
11030 PRINT #6{"devices such as ( 

11040 PRINT #6{"this photocell... 


11050 POSITION 0,7 
11060 PRINT #6{"RESISTANCE (OHMS) 
11070 IF PEEK(53279)<>7 THEN 11150 
11080 KEY=PADDLE(0) 

11090 R=INT(KEY/228*500000) 

11100 POSITION 0,8 
11110 PRINT #6{R{" 

11115 FOR X=1 TO 25sNEXT X 
11120 B ss USR(1536 ,KEY) 

11130 GOTO 11070 
11150 B=USR(1536,255) 

11160 B»USR(1536,255) 


11200 RETURN 
11210 REM 
11220 REM 
11230 REM 
12000 GRAPHICS 
12010 SETCOLOR 
12020 SETCOLOR 


0 
2 , 
1.0 


,0 

.15 


12030 PRINT "PLEASE ENTER THE MESSAGE THAT 
12040 PRINT "YOU WOULD LIKE TO BE SENT. (| 

12050 PRINT "---- 

12060 INPUT LINES 

12070 IF LEN(LINES)=0 THEN 12200 



12075 PRINT „ 

12077 PRINT "TRANSMITTING... 

12078 B=USR(1536,LEN(LINES)) 

12079 FOR X=1 TO 50:NEXT X 

12080 FOR X=1 TO LEN(LINES) 
12090 KEY=ASC(LINES(X,X)) 
12100 SOUND 0,KEY,10,10 
12105 PRINT LINES(X,X)» 

12110 B=USR(1536,KEY) 


12120 NEXT X 

12125 SOUND 0,0,0,0 

12130 PRINT :PRINT 

12140 PRINT "DONE. PRESS RETURN 

12150 INPUT LINES 

12160 GOTO 12000 

12200 B=USR(1536,0) 


12210 RETURN 

12220 REM 

12230 REM 

12240 REM 

13000 GRAPHICS 18 

13010 PRINT #6?" 

13040 FOR Z=0 TO 14 


THE END" 

STEP 0.5;SETC0L0R 


13045 X=5:Y=5 
13050 X=INT(RND(0)*10) +1 
13060 Y=INT(RND(0)*10)+1 
13070 POSITION X,Y 
13080 PRINT #6;"CLAP! 
13090 GOTO 13040 


2 



